home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0493 / CURSRTST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-22  |  312b  |  9 lines
  1. program cursortest;
  2. uses cursor1;
  3. begin
  4.  writeln(cursor1.maxSize);
  5.  cursor1.setSize(cursor1.maxSize); readln;        {block}
  6.  cursor1.setSize(0); readln;                     {hidden}
  7.  cursor1.setSize(cursor1.maxSize div 2); readln;   {half}
  8.  cursor1.setSize(2); readln;                     {normal}
  9.  end.